home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / applications / wp / macro28.lha / Macro / AUGFL / MakeHeader.ged < prev    next >
Encoding:
Text File  |  1994-07-06  |  2.5 KB  |  96 lines
  1. /*
  2. **  $VER: MakeHeader 1.1 (05 Jul 1994)  **
  3. **
  4. **        © 1994 François Helsen
  5. **
  6. **  PROGRAMNAME:
  7. **      MakeHeader
  8. **
  9. **  FUNCTION:
  10. **      Create a header on ARexx and C programs
  11. **
  12. **  $HISTORY:
  13. **
  14. **  05 Jul 1994 : 1.100 : bugfix IF 'Cancel' button was pressed
  15. **  03 Jul 1994 : 1.000 : get 'USERNAME' from GoldEd (registered 0.991+ only)
  16. **  23 Jun 1994 : 0.990 : added 'Readln' function
  17. **  22 Jun 1994 : 0.900 : added '$HISTORY'
  18. **  21 Jun 1994 : 0.800 : added 'Env:USERNAME'
  19. **  20 Jun 1994 : 0.701 : added 'PROGRAMNAME' and 'FUNCTION'
  20. **  20 Jun 1994 : 0.700 : added Copyright 'YYYY'
  21. **  19 Jun 1994 : 0.001 : initial release
  22. */
  23.  
  24. OPTIONS RESULTS                             /* enable return codes     */
  25.  
  26. arg doComment doFold                        /* set to TRUE/FALSE       */
  27.  
  28. OPTIONS RESULTS                             /* enable return codes     */
  29.  
  30. if (LEFT(ADDRESS(), 6) ~= "GOLDED") then    /* not started by GoldEd ? */
  31.     address 'GOLDED.1'
  32.  
  33. 'LOCK CURRENT'                              /* lock GUI, gain access   */
  34. OPTIONS FAILAT 6                            /* ignore warnings         */
  35. SIGNAL ON SYNTAX                            /* ensure clean exit       */
  36.  
  37. /* ------------------------- INSERT YOUR CODE HERE: ------------------ */
  38.  
  39. USERNAME = ""
  40. 'QUERY VERSION'
  41.  
  42. IF (RESULT >= 991) THEN
  43.     'QUERY USER VAR=USERNAME'
  44.  
  45. IF (USERNAME = "") THEN DO
  46.     IF Open('namefile', "Env:USERNAME", 'READ') THEN
  47.         USERNAME = ReadLn('namefile')
  48.     ELSE DO
  49.         'REQUEST STRING TITLE="Type in your name" VAR=USERNAME'
  50.         IF rc ~= 5 THEN DO
  51.             ADDRESS COMMAND 'ECHO >envarc:USERNAME "' || USERNAME || '"'
  52.             ADDRESS COMMAND 'Copy envarc:USERNAME TO env:'
  53.         END
  54.     END
  55. END
  56.  
  57. 'GOTO TOP'
  58. 'FIRST'
  59.  
  60. 'REQUEST TITLE "Give the program name" STRING VAR PROGNAME'
  61.  
  62. IF rc ~= 5 THEN DO
  63.  
  64. 'INSERT LINE'
  65. 'TEXT CR T="/**"'
  66. 'TEXT CR T="****  $VER: ' || PROGNAME || ' 0.001 (' || Date() || ')  ****"'
  67. 'TEXT CR T="****"'
  68. 'TEXT CR T="****        © ' || Right(Date(), 4, ' ') || ' ' || USERNAME || '"'
  69. 'TEXT CR T="****"'
  70. 'TEXT CR T="****  PROGRAMNAME:"'
  71. 'TEXT CR T="****      ' || PROGNAME || '"'
  72. 'TEXT CR T="****"'
  73. 'TEXT CR T="****  FUNCTION:"'
  74. 'TEXT CR T="****      What it does"'
  75. 'TEXT CR T="****"'
  76. 'TEXT CR T="****  $HISTORY:"'
  77. 'TEXT CR T="****"'
  78. 'TEXT CR T="****   ' || Date() || ' : 0.01 : initial release"'
  79. 'TEXT CR T="**/"'
  80. 'DOWN'
  81.  
  82. END
  83.  
  84. /* ---------------------------- END OF YOUR CODE ----------------------- */
  85.  
  86. 'UNLOCK' /* VERY important: unlock GUI */
  87. EXIT
  88.  
  89. SYNTAX:
  90.  
  91. SAY "Sorry, error line" SIGL ":" ERRORTEXT(RC) ":-("
  92. 'UNLOCK'
  93. EXIT
  94.  
  95.  
  96.